home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / pcwrite3.arc / PCWMOUSE.DEF < prev    next >
Text File  |  1986-04-01  |  3KB  |  125 lines
  1. ;  This version is for PC-Write 2.55, call Quicksoft about the 2.6 version.
  2.  
  3. ;  Set up initial labels for mouse commands
  4.  
  5. BEGIN lb,rb,bb,mousel,mouser,mouseu,moused 
  6. lb: match 1,4,,"c",pop4,lb2
  7. lb2: match 1,1,,"F",keyf6
  8. rb: match 1,20,,"D",pop1,rb2
  9. rb2: match 1,21,,"g",pop2,pop3
  10. bb: match 1,1,,"F",keyf5
  11. ; -------------------- Mouse left -----------------------
  12.  
  13. mousel: match 1,1,,"F",keyctrls                  
  14.                            
  15. ; ------------------- Mouse right -----------------------
  16.  
  17. mouser: match 1,1,,"F",keyctrld               
  18.  
  19. ; --------------------- Mouse up -----------------------
  20.  
  21. mouseu: match 1,1,,"F",keyctrle                  
  22.  
  23. ; ------------------- Mouse down -----------------------
  24.  
  25. moused: match 1,1,,"F",keyctrlx                  
  26. ;function key menu
  27. pop1: popup 2,60
  28. text "╔══════MARKED══════╗"
  29. text "║Continue          ║"
  30. text "║Help              ║"
  31. text "║Copy to cursor    ║"
  32. text "║Move to cursor    ║"
  33. text "║Clear marking     ║"
  34. text "║Marked -> Marking ║"
  35. text "║Change case       ║"
  36. text "║Center            ║"
  37. text "╚══════════════════╝"
  38. select 2,2,18
  39. select 3,2,18,keyf1
  40. select 4,2,18,keyf3
  41. select 5,2,18,keyf6
  42. select 6,2,18,keyf5
  43. select 7,2,18,keycf6
  44. select 8,2,18,keyf8
  45. select 9,2,18,keycf8
  46. pend
  47. pop2: popup 2,60
  48. text "╔═════MARKING══════╗"
  49. text "║Continue          ║"
  50. text "║Help              ║"
  51. text "║Copy to file      ║"
  52. text "║Delete to hold    ║"
  53. text "║Clear marking     ║"
  54. text "║Marking -> Marked ║"
  55. text "╚══════════════════╝"
  56. select 2,2,18
  57. select 3,2,18,keyf1
  58. select 4,2,18,keycf6
  59. select 5,2,18,keyf4
  60. select 6,2,18,keyf5
  61. select 7,2,18,keyf6
  62. pend
  63. pop3: popup 2,60
  64. text "╔══════════════════╗"
  65. text "║Continue          ║"
  66. text "║Help              ║"
  67. text "║Ruler line        ║"
  68. text "║Reformat          ║"
  69. text "║Find and Replace  ║"
  70. text "║Insert file       ║"
  71. text "║Insert hold       ║"
  72. text "║Cursor location   ║"
  73. text "╚══════════════════╝"
  74. select 2,2,18
  75. select 3,2,18,keyf1
  76. select 4,2,18,keyf2
  77. select 5,2,18,keyf7
  78. select 6,2,18,keyf9
  79. select 7,2,18,keycf3
  80. select 8,2,18,keycf4
  81. select 9,2,18,keycf9
  82. pend
  83. pop4: popup 1,1
  84. text "F1:continue F2:exit F3:save F4:toDOS F5:renamefile F6:switchfile Esc:stopsave"
  85. select 1,1,11,keyf1
  86. select 1,13,7,keyf2
  87. select 1,21,7,keyf3
  88. select 1,29,8,keyf4
  89. select 1,38,13,keyf5
  90. select 1,52,13,keyf6
  91. select 1,66,13,keyesc
  92. pend
  93. ;               --- Key Commands ---
  94. keyctrls: type 19   ;Ctrl S - Left char
  95. keyctrld: type 4   ;Ctrl D - Right char
  96. keyctrle: type 5   ;Ctrl E - Up char
  97. keyctrlx: type 24   ;Ctrl X - Down char
  98. keyesc: type 27
  99. keyf1: type 0,59
  100. keyf2: type 0,60
  101. keyf3: type 0,61
  102. keyf4: type 0,62
  103. keyf5: type 0,63
  104. keyf6: type 0,64
  105. keyf7: type 0,65
  106. keyf8: type 0,66
  107. keyf9: type 0,67
  108. keyf10: type 0,68
  109. keycf3: type 0,86
  110. keycf4: type 0,87
  111. keycf6: type 0,89
  112. keycf8: type 0,91
  113. keycf9: type 0,92
  114. keycf10: type 0,93
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.